home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
language
/
pcpil
/
sample6.pil
< prev
next >
Wrap
Text File
|
1979-12-31
|
2KB
|
118 lines
R: Circumference of a Circle
R: a sample PILOT lesson
R:
R: set up screen viewports and outlines
TS:m4;v1,38,17,23;b1;f1
G:c3;g0,199;d0,0;d319,0;d319,199;d0,199;d0,134;d319,134
R:
R: define greek letter pi as character 187 (key F1)
N:Ç
........
.///////
/./../..
../../..
../../..
../../..
../../..
........
R:
R: introductory section
P:l
T:We all know what a circle is.
:
TH:Right?
A:
M:no!don!wr&g
TY:Your just pulling my leg!
WY:15
G:c1;g30,20;h90;*18(f20;r20);
S:200,1;190;160;130;100
G:c2;g200,70;*18(f30;r20);
S:30,1;50;90;140;200;290
G:c3;g150,30;*20(f40;r18);
S:100,1;92;83;74;65;56;50
G:c2;g20,66;h0;*40(f30;r9);
S:*3(100,2;200)
G:c1;g230,64;h0;*20(f30;r18);
S:120,1;90;80;90;120
TX:
T:
T: Circles look like this.
W:20
T:
: ( I don't really know what
TH: they sound like. )
W:30
R:
R: erase both parts of the screen
TS:v1,38,1,15
TX:
TS:v1,38,17,23
R:
R: discuss the CENTER point
TX:But circles can also be described
:in mathematical terms.
G:g160,66;h90;c2;f4;c0;f154;c3;l90;f25;r180;*20(f50;r18)
T:Do you know what we call the
:point marked with a RED dot?
A:
M:yes
TY:Good. What do we call it?
JY:@A
MS:center
TY:Right, the CENTER of the circle.
WY:20
JY:@P
M:mid
TY:Do you know another word
:for #%b ?
JY:@A
T1:See the red point inside the circle.
T1:What is it called?
J1:@A
T2:I'll give you a hint...
T2:It is in the middle of the circle.
J2:@A
T:It is called the CENTER.
T:Can you type the word CENTER?
J:@A
R:
R: get into the RADIUS
P:
TH:push the ENTER key and we will go on
A:
TX:I will draw two lines from the
:center to the edge of the circle.
W:20
G:g160,66;h90;c2;f154;g160,66;h270;c1;f158
T:
W:15
T:Which of the two lines, the RED one
:or the GREEN one, is longer?
A:
MS:yel!blue!white!black
TY:There is no #%b line...
JY:@A
M:red
TY:No, the red one isn't longer.
:Try again.
JY:@A
MS:green
TY:No, the green one isn't longer.
:Try again.
JY:@A
MS:neither!both!same!equal
TY:Right, they are both the same.
JY:@P
T1:See the red and green lines.
:Which do you suppose is longer?
J1:@a
T:Actually, they are both the same
:length! Can you type the word SAME.
J:@a
P:
TH:push the ENTER key and we will go on
A:
ts:m2;f7;e0
t:end of sample6